home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / server_ads.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  4.5 KB  |  135 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsConstants.inc"-->
  3. <!--#include file="include/wmsLocStrings.inc"-->
  4. <!--#include file="include/wmsCommon.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsServerHash.inc"-->
  7. <!--#include file="include/wmsconnect.inc"-->
  8. <!--#include file="include/wmsToolbar.inc"-->
  9. <!--#include file="include/wmsHelp.inc"-->
  10. <!--#include file="include/wmsError.inc"-->
  11. <!--#include file="include/wmsPageBanner.inc"-->
  12. <!--#include file="include/wmsTabs.inc"-->
  13. <%
  14. '+-------------------------------------------------------------------------
  15. '
  16. '  Microsoft Windows Media
  17. '  Copyright (C) Microsoft Corporation. All rights reserved.
  18. '
  19. '  File:       Server_Ads.asp
  20. '
  21. '  Contents:
  22. '
  23. '--------------------------------------------------------------------------
  24.  
  25. ConnectToServer
  26. BeginErrorHandling
  27.  
  28. WriteHTMLHeader( g_strDecodedServerName )
  29. %><link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  30. <script language="JavaScript" src="include/WMSCommon.js"></script>
  31. <script language="JavaScript">
  32. <!--
  33. /*@cc_on @*/
  34. //////////////////////////////////////////////////////////////////////////
  35. function OpenPartnerWindow( szUrl, szWinName )
  36. {
  37.     <% jsTRY %>
  38.         var win = null;
  39.         var szFeatures;
  40.  
  41.         szFeatures = "resizable,scrollbars=yes,dependent=no,scroll=yes,location=yes,menubar=yes";
  42.         win = window.open( szUrl, szWinName, szFeatures, true );
  43.         if( ! win )
  44.         {
  45.             win = window.open( szUrl, szWinName, szFeatures, true );
  46.         }
  47.         
  48.         if( win )
  49.         {
  50.             win.focus();
  51.         }
  52.     <% jsCATCH %>
  53. }
  54. <% WriteCommonJSUtils %>
  55. -->
  56. </script>
  57. </head>
  58. <body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  59. <%
  60. ' Draw the page banner and tabs
  61. DrawServerNameBanner L_ADSTABTITLE_TEXT
  62. %>
  63. <br>
  64. <table bgcolor="#FFFFFF" width="100%" cellspacing="5" cellpadding="5" border="0" ID="Table1">
  65. <tr>
  66.     <td>
  67.         <span class="header"><%= Server.HTMLEncode( L_WEBRESOURCES_TEXT ) %> </span>
  68.         <table width="85%" cellspacing=0 cellpadding=0 border=1 ID="Table2">
  69.         <tr>
  70.             <td>
  71.                 <table width="100%" cellspacing="2" cellpadding="2" align="left" border="0">
  72.                 <tr>
  73.                     <td valign="top" align="left" width="32">
  74.                         <img src="img/web_resources.gif" border="0">
  75.                     </td>
  76.                     <td align="left">
  77.                         <table width="100%" cellspacing="5" cellpadding="5" border="0" align="left">
  78.                         <tr>
  79.                             <td align="left">
  80.                                 <a tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> href="JavaScript:OpenPartnerWindow( '<%= Server.HTMLEncode( L_ADSPARTNER_TEXT ) %>', 'tPartner4' );" oncontextmenu="JavaScript:event.cancelBubble=true;return false;"><b><%= Server.HTMLEncode( L_FINDADSPART_TEXT ) %></b></a>
  81.                             </td>
  82.                         </tr>
  83.                         </table>
  84.                     </td>
  85.                 </tr>
  86.                 </table>
  87.             </td>
  88.         </tr>
  89.         </table>
  90.     </td>
  91. </tr>
  92. </table>
  93. <table width=100% border="0">
  94. <tr>
  95.     <td>
  96.         <%
  97.         dwLastToolbarIndex = 0
  98.  
  99.         if( TRUE = Session( "ShowServerList" ) ) then
  100.         ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONRETURNTOSERVERLIST_TEXT
  101.         ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_SERVERLIST
  102.         ToolbarButtonLink ( dwLastToolbarIndex ) = SERVERSLIST_PATH
  103.         ToolbarButtonAltText( dwLastToolbarIndex ) = L_RETURNTOSL_TEXT
  104.         dwLastToolbarIndex = dwLastToolbarIndex + 1
  105.         end if
  106.         
  107. '        ToolbarButtonText ( dwLastToolbarIndex ) = L_BUTTONHELP_TEXT
  108. '        ToolbarButtonImage( dwLastToolbarIndex ) = IMAGE_HELP
  109. '        ToolbarButtonLink ( dwLastToolbarIndex ) = HELPTOKEN
  110. '        ToolbarButtonAltText( dwLastToolbarIndex ) = L_HELPALT_TEXT
  111. '        ToolbarHelpURL = H_SERVERADSHELPTOPIC
  112. '        ToolbarNesting = H_SERVERLEVEL
  113.  
  114.         if( dwLastToolbarIndex > 0 ) then
  115.             DrawToolbar FALSE, ( dwLastToolbarIndex )
  116.         end if
  117.         %>
  118.     </td>
  119. </tr>
  120. </table>
  121. <% 
  122.     DrawCopyrightInfo
  123.     DrawStdFooter
  124. %>
  125. </body>
  126. </html>
  127. <% 
  128. LatchCurrentPage "server_ads.asp", qs
  129. EndErrorHandling( "server_ads.asp" ) 
  130.  
  131. on error resume next
  132. WMSServerHashASPCleanup
  133. WMSConnectASPCleanup
  134. %>
  135.